## Warning: package 'bindrcpp' was built under R version 3.4.4

Catch Series Over Time

CommonName<-read.csv(here::here("raw_data", "CommonName.csv"))%>%
 filter(Genus== "Atrina"
        |Genus=="Octopus"
        |Genus=="Callinectes"
        |Genus=="Scomberomorus"
        |Genus=="Epinephelus"
        |Genus=="Mugil"
        |Genus=="Panulirus"
        |Genus=="Cephalopholis"
        |Genus=="Dasyatis"
        |Genus=="Micropogonias"
        |Genus=="Lutjanus"
        |Genus=="Squatina"
        |Genus=="Sphoeroides")%>%
  select(Genus, CommonName)

genus_catch<-read.csv(here::here("data", "function_inputs", "catch_Genus.csv"))%>%
   filter(Genus== "Atrina"
        |Genus=="Octopus"
        |Genus=="Callinectes"
        |Genus=="Scomberomorus"
        |Genus=="Epinephelus"
        |Genus=="Mugil"
        |Genus=="Panulirus"
        |Genus=="Cephalopholis"
        |Genus=="Dasyatis"
        |Genus=="Micropogonias"
        |Genus=="Lutjanus"
        |Genus=="Squatina"
        |Genus=="Sphoeroides")%>%
  filter(!(Ano==2000))%>%
  merge( CommonName, by="Genus")




colourCount = length(unique(genus_catch$CommonName))
getPalette = colorRampPalette(brewer.pal(9, "Set1"))

ggplot(genus_catch, aes(x=Ano, y=MT, fill=CommonName))+
  geom_area(position = 'stack')+
  labs(title = "Historical landings 2015-2015", x = "Year", y= "Landings (metric tons)") +
  scale_x_continuous(expand=c(0,0), labels=c(2005, 2007, 2010, 2012, 2015))+
  scale_y_continuous(expand=c(0,0))+
  scale_fill_manual(values = getPalette(colourCount))+
  theme_classic()

ggsave("historicalcatch.jpg", width=8, height = 5, dpi=300)

?scale_x_continuous
## starting httpd help server ... done